home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-05-01 | 1.9 KB | 70 lines | [TEXT/MPS ] |
- ;
- ; File: Clipboard.a
- ;
- ; Contains: Clipboard Manager Interfaces.
- ;
- ; Version: Technology: System 8
- ; Release: Universal Interfaces 3.0d3 on Copland DR1
- ;
- ; Copyright: © 1984-1996 by Apple Computer, Inc. All rights reserved.
- ;
- ; Bugs?: If you find a problem with this file, send the file and version
- ; information (from above) and the problem description to:
- ;
- ; Internet: apple.bugs@applelink.apple.com
- ; AppleLink: APPLE.BUGS
- ;
- ;
- IF &TYPE('__CLIPBOARD__') = 'UNDEFINED' THEN
- __CLIPBOARD__ SET 1
-
- IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
- include 'Types.a'
- ENDIF
- IF &TYPE('__SCRAP__') = 'UNDEFINED' THEN
- include 'Scrap.a'
- ENDIF
- IF FOR_SYSTEM8_PREEMPTIVE THEN
- ;
- ;_________________________________________________________________________________________________________
- ; • ERRORS
- ;_________________________________________________________________________________________________________
- ;
-
- kClipboardEmptyErr EQU -1000
- kClipboardScrapNotFoundErr EQU -1001
- ;
- ;_________________________________________________________________________________________________________
- ; • PUTTING A SCRAP ON THE CLIPBOARD
- ;_________________________________________________________________________________________________________
- ;
- ;
- ; extern OSStatus PutScrapOnClipboard(ScrapRef theScrap)
- ;
- IF GENERATINGCFM THEN
- IMPORT_CFM_FUNCTION PutScrapOnClipboard
- ENDIF
-
- ;
- ;_________________________________________________________________________________________________________
- ; • GETTING A SCRAP FROM THE CLIPBOARD
- ;_________________________________________________________________________________________________________
- ;
- ;
- ; extern OSStatus GetScrapFromClipboard(ScrapRef *theScrap)
- ;
- IF GENERATINGCFM THEN
- IMPORT_CFM_FUNCTION GetScrapFromClipboard
- ENDIF
-
- ;
- ; extern OSStatus ReleaseClipboardScrap(ScrapRef theScrap)
- ;
- IF GENERATINGCFM THEN
- IMPORT_CFM_FUNCTION ReleaseClipboardScrap
- ENDIF
-
- ENDIF
- ENDIF ; __CLIPBOARD__
-
-